home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacOberon 4.0.sit / MacOberon 4.0 / Toolbox Interfaces / MacMemory.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-10-25  |  3.3 KB  |  80 lines  |  [.Ob./.Ob5]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Syntax10i.Scn.Fnt
  4. ParcElems
  5. Alloc
  6. MODULE MacMemory;    (*od 25.10.93*)
  7. (* This Module contains some essential constants, data types and routines from
  8. the NEW Inside Macintosh volume
  9.             Memory
  10.             plus some general data types like strings etc.
  11. Edit.Open DK.MacOberonApp.Text for more information on how to create
  12. standalone Macintosh applications using MacOberon. *)
  13. IMPORT
  14.     SYSTEM;
  15. CONST
  16.         noErr* = 0;
  17.     (* General Types *)
  18.         Data*=RECORD END;    (* Base Type of Anything *)
  19.         Ptr*=POINTER- TO Data;    (* Untagged Pointer to Data*)
  20.         Handle*=POINTER- TO RECORD p*: Ptr END;    (* Untagged Pointer to a Master Pointer *)
  21.         Size*=LONGINT;
  22.         Str255*=ARRAY 256 OF CHAR;
  23.         StringPtr*=POINTER- TO Str255;
  24.         StringHandle*=POINTER- TO RECORD p*: StringPtr END;
  25. (* Macintosh Register_Based Core OS Traps*)
  26.     PROCEDURE- InitZone*    0A0H, 019H;
  27.     PROCEDURE- GetZone*    0A1H, 01AH;
  28.     PROCEDURE- SetZone*    0A0H, 01BH;
  29.     PROCEDURE- MaxMem*    0A1H, 01DH;
  30.     PROCEDURE- NewPtr*    0A1H, 01EH;
  31.     PROCEDURE- NewPtrClear*    0A3H,01EH;
  32.     PROCEDURE- NewPtrSys*    0A5H,01EH;
  33.     PROCEDURE- NewPtrSysClear*    0A7H,01EH;
  34.     PROCEDURE- DisposPtr*    0A0H, 01FH;
  35.     PROCEDURE- DisposePtr*    0A0H,01FH;
  36.     PROCEDURE- SetPtrSize*    0A0H, 020H;
  37.     PROCEDURE- GetPtrSize*    0A0H, 021H;
  38.     PROCEDURE- NewHandle*    0A1H, 022H;
  39.     PROCEDURE- NewHandleSys*    0A5H,022H;
  40.     PROCEDURE- NewHandleClear*    0A3H,022H;
  41.     PROCEDURE- NewHandleSysClear*    0A7H,022H;
  42.     PROCEDURE- DisposHandle*    0A0H, 023H;
  43.     PROCEDURE- DisposeHandle*    0A0H,023H;
  44.     PROCEDURE- HGetState*    0A0H,069H;
  45.     PROCEDURE- HSetState*    0A0H,06AH;
  46.     PROCEDURE- SetHandleSize*    0A0H, 024H;
  47.     PROCEDURE- GetHandleSize*    0A0H, 025H;
  48.     PROCEDURE- HandleZone*    0A1H, 026H;
  49.     PROCEDURE- ReallocHandle*    0A0H, 027H;
  50.     PROCEDURE- RecoverHandle*    0A1H, 028H;
  51.     PROCEDURE- HLock*(h:Handle)    020H,05FH, 0A0H, 029H;
  52.     PROCEDURE- HUnlock*(h:Handle)    020H,05FH,0A0H, 02AH;
  53.     PROCEDURE- HPurge*(h:Handle)    020H,05FH,0A0H,049H;
  54.     PROCEDURE- HNoPurge*(h:Handle)    020H,05FH,0A0H,04AH;
  55.     PROCEDURE- HLockHi*(h:Handle)    020H,05FH,0A0H,064H,0A0H,029H;
  56.     PROCEDURE- MoveHHi*(h:Handle)    020H,05FH,0A0H,064H;
  57.     PROCEDURE- TempNewHandle*(logSize : Size; VAR result : INTEGER) : Handle    03FH,03CH,000H,01DH,0A8H,08FH;
  58.     PROCEDURE- TempMaxMem*(VAR grow:Size) : Size    03FH,03CH,000H,015H,0A8H,08FH;
  59.     PROCEDURE- TempFreeMem() : LONGINT    03FH,03CH,000H,018H,0A8H,08FH;
  60.     PROCEDURE- EmptyHandle*    0A0H, 02BH;
  61.     PROCEDURE- InitApplZone*    0A0H, 02CH;
  62.     PROCEDURE- GetApplLimit*() : Ptr    02EH,0B8H,001H,030H;
  63.     PROCEDURE- SetApplLimit*    0A0H, 02DH;
  64.     PROCEDURE- BlockMove*    0A0H, 02EH;
  65.     PROCEDURE- PurgeMem*(cbNeeded : Size)    020H,01FH,0A0H,04DH;
  66.     PROCEDURE- PurgeMemSys*(cbNeeded : Size)    020H,01FH,0A4H,04DH;
  67.     PROCEDURE- FreeMem*() : LONGINT    0A0H,01CH,02EH,080H;
  68.     PROCEDURE- FreeMemSys() : LONGINT    0A4H,01CH,02EH,080H;
  69.     PROCEDURE- StripAddress*(adr24 : LONGINT) : LONGINT    020H,01FH,0A0H,055H,02EH,080H;
  70.     PROCEDURE- Translate24To32*(adr24 : LONGINT) : LONGINT    020H,01FH,0A0H,091H,02EH,080H;
  71.     PROCEDURE- SetCurrentA5*() : LONGINT    02EH,08DH,02AH,078H,009H,004H;
  72.     PROCEDURE- SetA5*(newA5 : LONGINT) : LONGINT    02FH,04DH,000H,004H,02AH,05FH;
  73.     PROCEDURE- Debugger*    0A9H,0FFH;
  74.     PROCEDURE- MemError*() : INTEGER    03EH,0B8H,002H,020H;
  75.     PROCEDURE- MoreMasters*    0A0H, 036H;
  76.     PROCEDURE- GetTrapAddress*    0A1H, 046H;
  77.     PROCEDURE- SysEnvirons*    0A0H, 090H;
  78.     PROCEDURE- MaxApplZone*    0A0H, 063H;
  79. END MacMemory.
  80.